projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2d0e1e5
)
Fix fancy-about-screen point placement
author
Lars Ingebrigtsen
<larsi@gnus.org>
Sun, 5 Dec 2021 19:53:47 +0000
(20:53 +0100)
committer
Lars Ingebrigtsen
<larsi@gnus.org>
Sun, 5 Dec 2021 19:54:50 +0000
(20:54 +0100)
* lisp/startup.el (fancy-about-screen): Make point placement more
resilient (bug#43636).
lisp/startup.el
patch
|
blob
|
history
diff --git
a/lisp/startup.el
b/lisp/startup.el
index 8ea7a5b392d1bd46b0017a537ccb37f554a78706..e5e6b07b4d413d2d470200294efdfe645c80c7dd 100644
(file)
--- a/
lisp/startup.el
+++ b/
lisp/startup.el
@@
-1989,8
+1989,9
@@
splash screen in another window."
(setq-local browse-url-browser-function 'eww-browse-url)
(setq tab-width 22)
(setq buffer-read-only t)
+ ;; Place point somewhere it doesn't cover a character.
(goto-char (point-min))
- (
forward-line 3
))))
+ (
re-search-forward "\n$" nil nil 2
))))
(defun fancy-splash-frame ()
"Return the frame to use for the fancy splash screen.